home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / Marlais 0.3.1 / Marlais-0.3.1 / foreign.dyl < prev    next >
Encoding:
Text File  |  1994-07-26  |  515 b   |  26 lines  |  [TEXT/R*ch]
  1. ;;;
  2. ;;; foreign.dyl
  3. ;;;
  4. ;;; Brent Benson
  5. ;;;
  6.  
  7. ;;
  8. ;; Types - int: double: char*:
  9. ;;
  10.  
  11. (define *foreign-table* (make <table>))
  12.  
  13. (define-class <ff> (<object>)
  14.   (name init-keyword: name:)
  15.   (file-handle init-keyword: file-handle:)
  16.   (arg-types init-keyword: arg-types:)
  17.   (return-type init-keyword: return-type:))
  18.  
  19. (define-method load-foreign ((filename <string>)) (%load-foreign filename))
  20. (define-method describe-foreign ((fun-name <symbol>) 
  21.                  #key
  22.                  file-handle
  23.                  arg-types
  24.                  return-type)
  25.   
  26.